RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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RUNOFF initialization 1b-52 -1984 01:32:39 VAX-11 Bliss-32 V4.0-742 Page 1 
1e-8ep- 1986 ISi09:8) — DASKSUNEMASTERSEMONOF? “SRCIRINIT.BLIG;™” 1} 
1 1 0001 ZTITLE ‘RUNOFF initialization’ 3 
2g O0¢ Q MODULE RINIT ( IDENT =, V04~000° ; 
$ P ZBLISS32C0, ADDRESSING_MODE yt ta = LONG_RELATIVE : 
— s 004 ONEXTERNAL = LONG-RELATIVES J ; 
; 5 005 )= 3 
? ois | 
: 3 4 } i eeeeeeeeeeeeeeeeeeeReeeeeeeeeeeeeeeeeeeeteneeeeeeeeeeeeaeeeeeeeeeeeeeeeeener : 
F '® % 3 
$ 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
$ 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * é 
i 1g OO1g 1 fs ALL RIGHTS RESERVED. . ; 
: 14 0014 1 is noe SOF TWARE ‘ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ai AND WITH THE * : 
: 16 6018 1 !e INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 1 ths : i TRANSFERRED. « 3 
; . ® Ps 
: 21 0021 1 !* THE ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 22 Oss 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $i itt ! by CORPORATION. . 3 
Hy Mid * : 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * FY 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * $ 
ta 0027 1 I* ® : 
; a 0028 1 !* * $ 
: $3 5 34 : atc atat tihahtaha ata a tla iatet a ll : 
;. 3 0031 1 : 
= 6036 1 S++ : : 
; tz o5 Z ! : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
i 35 0035 1 | ABSTRACT: Initialization of RUNOFF. 3 
. oO 0037 1 ' ENVIRONMENT: Transportable : 
i 2 0038 1! 3 
: 39 0039 1 ! AUTHOR: R.W.Friday CREATION DATE: April, 1978 : 
;: = 0040 1 : 


[ 


15 
RINIT RUNOFF initialization 1b-Se -1984 2:32:39 VAX=11 V4.0-742 
v04-000 Revision History 12-808-13b2 04:38:39 DISKSVM : CRUNOFF .SRCIRINIT.BLI; 79 * 28 


; & 041 1 XSBTTL Mt a History’ : 
: 4 ong 1 ! MODIFIED s 
: 644 0045 1! 3 
; & 0044 1! 048 REM00048 Ray Marshall 17-May-1984 3 
; &% 0045 1! Added initialization of GCA_CMD_OSQ to support the insertion 3 
; rf 4 hk ! } of output Line numbers in the output text. : 
: 49 0048 1 | 047 REM00047 Ray Marshall _—- 17=November-1983 ; 
; Bw 0049 1! Modified the guternel definition of ATABLE to use the new - 
: 2 0050 1! ae — DEFINITION defined in ATCODE.REQ. 3 
3 2g 0051 1! Also hanged he call to NATE to use the new Literal that 5 
23 0038 defines ATABLE’s length. 3 
. 0054 1! 046 FA00046 Ken Alden 10-0 t-1983 : 
: 28 Bo22 i Added init for GCA_CMD_PAGES. : 
: 58 0057 1! 045 KFA00045 Alden 15-Jul-1983 ; 
‘ 2B B238 : Added init. for GCA. DO_ XXX ALREADY. : 
>: 61 0060 1} 044 KFA00044 Ken Alden S5-Jul-1983 : 
; 6¢ 0061 1! Made the sca initialization use Literals rather than ; 
; © Bpeg 1} ‘hard-coded’ numbers. This will prevent modifying this PF 
: ee 8207 : module when any save/restore expansion is needed. : 
: 66 0065 1 043 KFA00043 Ken Alden 27-Jun-1983 : 
: 24 poe8 ; } Added init. for gca_cref_errcnt. : 
: 69 0068 1 | 042 KAD00042 Keith Dawson 10-Jun-1983 : 
; 0069 1! Fix .NOTE margins to be more sensible. This is motivated by 3 
; 0070 1! the fact that notes come out looking centered on .PS, instead 3 
3 f 0) : of on .LM-.RM as desired. : 
; «7h 0073 1! 041 KAD00041 Keith Dawson 9-Jun-1983 : 
: & 0074 1! For both DSR and DSRPLUS, made default right margin and F 
: 28 Bate ’ page size (width) 70 instead of 60. : 
: 78 0077 1: 040 KAD00040 Keith Dawson 9-May-1983 : 
3 79 0078 1! Remove support for .DX, . 3 
; 8&8 0079 1! : 
; 0080 1! 039 KAD00039 Keith Dawson 11-April-1983 g 
: § 0081 1! Added support for new termination error messages for : 
3 a7 B08 : information written to .BRN file. : 
> BS 0084 1! 038 REROO038 Ron Randall 05-Apr-1983 3 
3 ag sia F ! : For DSRPLUS: Improved footnote and topnote initialization. : 
: 88 0087 1 037 KFA00037 Ken Alden 28-Mar-1983 : 
; 0088 1! 3 
:; 90 0089 1! and e easier to follow. now: =>entities, 7==>HL's, ; 
; 4 Boas ! : and 17==>Chapter/appendix. : 
xu 0092 1 | 036 RERO0036 Ron Randall 20-Mar-1983 : 
; | 694 095 1! Fer DSRPLUS: 3 
s 95 094 1! Added code to initialize topnotes. F 
5 3 0096 ! } No more passthrough flag... : 
: 98 097 1 | 035 KAD00035 Keith Dawson 20-Mar-1983 ; 


Altered tes: pepe | initialization to be more Logical . 
) 
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Revision History DISKSVMSMASTER: CRUNOFF.. SRCIRINIT.BLI; fe (2) 


<z 
i —- 


; WF 0098 1! Removed LNgT conditionals and all references to .BIX 

; 100 99 1! and .BTC files. 

; 101 100 1! 

; 106 101 1! 034 KFA00034 dgn 15-Mar-1983 

s 10 196 1! por DSRPLUS: a. ing alization for passthrough flag. 

: ie Vz : } For DSR: Enabled save/restore functionality. 

> 106 8182 1! 033 AD00033 Keith Dawson 07-Mar-1983 

s 107 138 1! Global edit of all modules. Updated module names, idents, 
; 108 0107 1! copyright dates. Changed require files to BLISS library. 
ABT 
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RSBTTL "Module Level Declarations’ 
TABLE OF CONTENTS: 
FORWARD ROUTINE 
RINIT : NOVALUE, 
ECCINI : NOVALUE; 


INCLUDE FILES: 


Main initialization routine. 
Initialize ECC structure. 


BRARY ‘NXPORT:XPORT'; ' XPORT Library 

QUIRE "REQ:RNODEF'; ' RUNOFF variant definitions 
U F DSRPLUS ZTHEN 
U BRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 


E 
BRARY ‘REQ:DSRLIB'; 


DSR BLISS Library 


WR 0 OBNOUE WN $0 ODNOUS WN 0 OBNOAU EWN O ODNOAUEWN —OOONOULS Wr 


; TY 1 

. a 2 

s Ti ¢ 1 

3 Ty 1 

s 0114 1 

s 0115 1 

5 F5 0 § 1 

: 0 1 

3s 0118 1 

a 0119 1 

we 0120 1 

; ¥ 8 . is 

os a § 1 

; 3 0 1 

3 (1 0254 1 

: te 0255 1 

3; 0256 1 

; jie 0257 1 

s is 0258 1 

3; i 0259 1 

; 0260 1! 

; Ts 0261 1 EXTERNAL LITERAL 

s % 0 ¢ 1 RINTES : UNSIGNED (8); 

. TS 0 7% 

; is 0264 1 ! OWN STORAGE: 

s is 0265 1! 

s VS 0266 1 EXTERNAL 

g 39 0267 1 MRAA : FIXED STRING, 

; «14 0268 1 LSTSTF : COUNTED_LIST, 

; 614 0269 1 PDOTSTF : VECTOR LPDT_SIZE], 

3 ? 2 9 : TSFA : VECTOR CTSF-SIZE); 

3: «(14 0 $ 1 ! GLOBAL STORAGE: 

3s 0 7} 

gs 4 0274 1 EXTERNAL 

3 (14 0275 1 FRA FIXED_STRING, 

; 4 0276 1 IRA FIXED_STRING, 

> 14 0277 1 XMRA FIXED-STRING, 

3 0278 1 MRA, : : _. | Refers to MRAa or MRAb. 

s % 0279 1 ! Intermediate storege for subtitle and title. 

; 0280 1 SBTMRA : FIXED STRING, 

: 0281 1 TITMRA : FIXED STRING, 

: 15 0 ¢ 1 ! Descriptors for subtitle and title. 

3 15 8 1 SBT TSF : VECTOR CTSF_SIZEJ, 

:) = 4 1 TITTSF : VECTOR CTSF_SIZEJ, : 
3 0285 1 XTSF : VECTOR CTSF_SIZEJ, ! Used for <INDEX flag> processing. 
; psee 1 KHAR ; } 

: 15 287 1 atable : atable_definition, ! Action table. Used to identify 
; «(16 osee 1 ! what type of action is to be 

3; 89 1 ! taken on encountering any 

=~ Se 8 90 1 ' given character. 

; 16 91 1 TSF : REF VECTOR CTSF_SIZE], ! Refers to TSFa or TSFb 

3; 6164 35 1 DAITIM : VECTORL6 ' Day and time pieces. 

: 165 95 1 FNESIZ t FN_EXT_SIZE_DEFINITION, ' Sizes of pending footnotes. ; 
; 166 N294 1 FNISIZ : FN_INT SIZE_DEFINITION, ' Number of TSF/MRA pairs in each pending footnote. 
: 16 3699 1 FNCT : FNCT_DEFINITION ' Footnote control table. 

; 168 0296 1 FOOREC : FOOREC_DEFINITION, ! Control area for pass through records 
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1 GCA GCA_DEFINITION, 
98 1 HCT HCT~DEFINITION, 
99 1 IFSTK IFSTACK 
0300 1 TRAC IRAC_DEFINITION, 
0 01 1 NPAGEN PAGE DEFINITION, 
06 1 PAGEN PAGE DEFINITION, i 
0303 1 BRNOOB $XPO-10B (), i 
0 04 1!! ~~ NDXPOL, i 
305 1 ii  NDXSGE. i 
0 06 1 ii — NDXSGF; i 
0307 1 1)  XTNCNT. i 
0308 1 {i  XTNLSP’ +: REF PAGE DEFINITION, i 
0309 11! XTNLSX  : REF VECTOR, i 
0310 1 ii!  XTNPOL =: REF BLOCK, i 
0311 1) XTNSGP =: REF BLOCK i 
O31¢ q ii XTNTAB —s::_:- REF _XTNTAB_DEFINE, i 
0313 1 {i | XPAGEN =: REF _XPAGENTDEFINE i 
0314 1 FLGT : FLAG TABLE ~CFLAG_COUNT), 
0315 1 SCA : SCA DEFINITION 
0316 1 SCALIT : VECTOR CSCA_CASE_SIZEJ, i 
0317 1 FSO1 : FIXED STRING i 
0318 1 OUTOPT : QUTOPT DEFINE i 
0319 1 cc : SECC_BCOCKVECTOR, 
0320 1 FRMSTD, 
0321 1 FRMSTK : FORM_ STACK 
032¢ 1 HLC : HLC_ DEFINITION, 
0323 1 HLLIST : COUNTED_LIST CMAX_LEVELS, 
0324 1 HLDSP : VECTOR [CMAX_LEVELS), 
0325 1 SAVSTK : SAVSTACK 
0326 1 LSTCHR : REF VECTOR, 
0327 1 LSTLCH : REF VECTOR, 
0328 1 LSTRCH REF VECTOR, 
0329 1 LSTLDD : REF VECTOR, 
0330 1 LSTCNT : REF COUNTED_LIST, 
0331 1 LSTSKP REF VECTOR, 
O33¢ 1 HLST VECTOR, 
0333 1 LCHLST VECTOR, 
0334 1 RCHLST VECTOR, 
0335 1 LDDLST VECTOR, 
0336 1 NMLST NUMBER. LIST 
0337 1 PDT REF PDT DEFINITION, 
338 #1 PHAN PHAN_DEFINITION, 
0339 1 SKPLST : VECTOR CNMLST_MAXSIZE) 
9540 1 TTABLE : COUNTED LIST [MAX TABS) 
sy 4 1OBSTK : BLOCKVECTOR CMAX_REQUIRE 
B3e¢ 1 ! Active input file I0Bs saved in 1OBSTK. 
0343 1 RNE10B : REF $XPO_10B (), 
0344 1 RNAIOB : REF $XxPO"10B (), i 
345 1 RNI10B REF $XPO-10B (), i 
0346 1 RNOIOB REF $XPO-10B (), i 
0347 1 FOOI0B REF $XPO-10B (). i 
348 1 FOTIOB REF $XPO-10B (). i 
9 1 FO110B $XxPO_1087(), i 
50 1 F0210B8 $XPO-10B (), i 
51 1 TTE1OB $XPO-10B (), i 
035¢ 1 TT1108 $XPO-10B (). i 
0353 1 TTO108 $XPO~10B (), i 


' Tab se 
IOBSK_LENGTH 


2 USi0b:37 bNSkbumemastence 


Global control area 
Header control area 
Stack for .IFs, etc 


Page number of next page 

Page number of current page 

108 for binary output file. 
Address of indexing pool, if a 
End of current index segment. 
Free space in current index se 
Number of XTNTAB entries 

vege number of last index entr 
Index segment List. 

Indexing storage pool. 

Address of current segment. 
List of transaction numbers as 
Page number associated with tr 


Scanner control area. 

Save case rules here during Li 
General purpose character stri 
Output options 


Depth of FRMSTK (0 means empty 


stings 


Storage for primary input 108. 
Storage for output " 

Input 108 currently active 
Output file 10B (i 
Standard footnote I10B. 

Refers to a temporary 108 for 
Never referred to directly 
Never referred to directl 
Standard error fiie (usually T 
Standard input file (usually T 
Standard output file (usually 


Sheen. Mie 


V4.0-742 a 
RUNOFF ..SRCIRINIT.BLI;1 
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signed 
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teral processing. 
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-@., for generated document) 


footnotes. 
T:) 
TY:) 
TTY:) 


Page 
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V04=000 Module Level Declarations We=geen BBs Phas gy Pehle teas chonbee Secaninar.euiet™ «34 
§ 4 1 TS1108 : SXPO_10B (), ! Standard out i file; but STREAM; not RECORD. 
VRCNT ' Number of variables. 
8 § 1 VRNAME VRNAME_DEF, ' The variable names. 
9 1 VRLNG VRLNG DEF ' The Length of the names. 
0 0 38 1 VRBOOL VRBOOC_DEF, i TRUE/FALSE value 
1 035 1 VRFFLG VRFFLG_DEF, ' FALSE fla 
g 0360 1 VRTFLG VRTFLG_DEF, ' TRUE fla x 
? 8 1 ! VRSRC VRSRC_DBEF ; ! Source of variable definition. 
$32 u 0 8 1 ZIF OSRPLUS XTHEN 
6 U 0364 1€E . 
7 U 8 65 1 REC TNREC_DEFINITION, 
8 U 0366 1 TOPNOT TN_DEFINITION 
39 U 0367 1 TNII0B EF $xPO_10B (), 
40 U 0368 1 TNUIOB REF $XPO_10B (), 
241 U 0369 1 TNOIOB $XPO_I10B (), 
stg u 0370 1 1108 $XPO_I0B (); 
24 0371 1 &FI 
244 b37§ 1 
245 0373 1! 
246 0374 1 ! EXTERNAL REFERENCES: 
247 0375 1! 
248 0376 1 EXTERNAL ROUTINE 
249 0377 1 
250 0378 1 1 tRIF NOT %BLISS(BL1ISS16) 
251 0379 1 !!ZTHEN 
526 0380 1 ii FPOOL, 
25 0381 1iiger 
254 Bee¢ 1 Savini, nate, rnodat, setcas; 
255 0383 1 
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$ 7 4 1 ZSBITL 'RINIT == body of main routine’ 

: 28 5 ! GLOBAL ROUTINE rinit : NOVALUE = 

: 260 5 1 l+4 

: e 8 i FUNCTIONAL DESCRIPTION: RUNOFF initialization 

; e§ 30 i FORMAL PARAMETERS: None 

: 365 O39¢ 1 | IMPLICIT INPUTS: None 

; $64 0394 1 | IMPLICIT OUTPUTS: None 

: 269 0396 1 | ROUTINE VALUE: 

: $f $444 | COMPLETION CODES: None 

; He 0599 1 | SIDE EFFECTS: None 

: 274 0401 1 

§ ero oh 4 2 BEGIN 

; 276 040 LOCAL 

. oe 

; 379 0406 g 

; seo 94 § : Initialize fixed_strings. 

; 282 0409 é fs_init (ira) 

; 285 0410 fs_init (mraa); 

3; «284 0411 2 fs_init (fra 

>; 285 O4ig 2 fs-init (fs015; 

; 286 0413 2 fs_init (titmra); 

; 287 0414 2 fs_init (sbtmra); 

: seo Bel? § fs_init (xmra); 

: 290 0417 2 

: $35 Bets § } Initialize text descriptors. 

; 393 40 : INCR 1 FROM 0 TO TSF_SIZE - 1 DO 

: 295 456 3 TSFA C.1] = 0; ! Text descriptor for primary area 
; 2% 4 SBTTSF 1} = 0; ! Text descriptor for subtitles 
; 7 0424 TITTSF C1] = 0; ' Text descriptor for titles 
; 3S eh $4 by -I] = 0; ! Text descriptor for indexing 
: 300 0427 : 

: 30¢ b 8 : vane ae SAVE/RESTORE reallocation 

3 08 686 ! wetEnd SAVE/RESTORE 

; 308 436 

; $09 4 Initialize draft flags in all TSF's to space (%C° '). 
: 308 435 TSF = TSFA; 

; 309 436 TSF_DRAFT_FLAG = XC" °; 

: 10 4 TSF"= SBITSF; 

: 311 4 8 TSF_DRAFT_FLAG = %C" '; 

3 \¢ 4 TSF™= TITTSF; 

: 31 0440 TSF_DRAFT_FLAG = %C" '; 
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F initialization 


== body of main routine 
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ZI1F 


2FI 


TSF = XTSF; 
TSF_DRAFT_FLAG = XC" '; 
i Point to primary text areas. 


MRA = MRAA; 

TSF = TSFA: 

NMLST_COUNT = 0; 

GCA_FEHLER = FALSE; 

GCA-ERRCNT = 0; 

GCA-ERR_DIR = REPORT_ERR_STD; 

GCALCMD-MSG = REPORT-ERR_BOTH; 

Some 1/0 initialization. 

RNIIOB = .RNEIOB; 

RNOIOB = .RNAIOB: 

$XPO_IOB_INIT (10B = TTI108); 

$XPO-IOB-INIT (10B = TTOIOB); 

$XPO-IOB-INIT (10B = TTEIOB); 

$XPO-IOB-INIT (10B = TSI10B); 

$XPO-IOB-INIT (I0B = BRNOOB);: 

$XPO-IOB-INIT (10B = FO 
FILE_SPEC = '0 
ATTRIBUTES = BI 

$XPO_IOB_INIT (10B = FO 
FILE_SPEC = '0 
ATTRIBUTES = BI 

0010B = FO1108; 

OTIOB = FOZIOB: 


Primary intermediate build area. 


Primary control area. 


No waiting number Lists 
No errors yet 

No errors yet 

Report errors in error lo 


After opening files report errors in both places. 


Set up pointer to primary at 108. 


Set up pointer to output I! 
Standard input (TTY:) 
Standard output (TTY:) 
Standard error log (TTY:) 
Standard input, but STREAM. 
Binary-output I0B. 

Standard footnote I0B. 


Temporary working footnote I0B. 


Set up ‘double I0Bing’’ 


! Initialize topnote control tables and file access tables. 
INCR I FROM 0 TO (TN_CONTROL - 1) DO 


F 
F 
DSRPLUS THEN 
i 
i 
I 


TOPNOT C.1J = 0; 


INCR_I FROM 0 TO 
TNREC C.1] = 0 


- Initialize topnote I0Bs. 


$XPO_I0B_INIT (108 = IN 
FILE_SPEC = '0 
ATTRIBUTES = BI 

$XPO_IOB_INIT (10B = IN 
FILE_SPEC = '0 

; ATTRIBUTES = BI 

Set up ‘double I0Bing". 

TNUIOB = TNOIOB; 

TNIJOB = TN1JOB: 


(TNREC_SIZE = 1) DO 


0B 
RNOTNO. TMP’, 
RY); 


0B 
RNOTN1. TMP’, 
RY); 
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| 139 

; rs 230 Open standard error log 

: 375 p 050¢ Status = $XPO_OPEN ( I0B = TTEIOB 

; 378 P 050 FILE SPEC = $XPO_ERROR 

; 77 P 0504 OPTIONS = OUTPUT 

Bi 4a Gee ; 

: 386 Fat4 Open user's terminal for input 

: 38¢ P 0509 Status = $XPO_OPEN ( I0B = TTIIOB 

: 38 P 0510 FILE SPEC = $XPO_INPUT 

: 384 P 0511 OPTIONS = INPUT 

ai 4 ae : 

; tee O2i9 : ! Open user's terminal for output 

: 389 P 0516 Status = $XPO_OPEN ( I10B = TTOIOB 

; 390 P 0517 2 FILE SPEC = $XPO_OUTPUT 

: 39% P0518 2 ,OPTIONS = OUTPUT 

: 395 ba 5 " 
3 $o¢ B25) ; ! Initialize HCT (header control table) 

: 396 pase 2 HCT_HD CASE = HCT_HD_MIXED; ! Display ‘Page’ and ‘Index’ 
: 397 b2s¢ 2 HCT_HEADERS = TRUE; 

ee te py 

; 400 05¢7 5 HCT-SUBTITLE = FALSE; 

: 402 U 0549 : %IF DSRPLUS X%THEN 

3; 403 vu 0530 2 HCT_TITLE_ALWAYS = FALSE; ' FIRST TITLE CALWAYS) 
CR gm 

: 406 $833 2 HCT_LAYOUT = LAYOUT_STANDARD; ! Standard page arrangement. 
: 407 0534 2 HCT_LAYOUTN = 0; 

BE RRR re iro stucue: 

; * = 0; ° ' Set t arity, as each call on NEWPAG 
: a1) 0838 : i te ae : ilies the per ity before outputting the title. 
3; «641 0539 ! 

; 418 beey 5 Initialize footnote control tables. 

: 415 0546 : iNCR I FROM 0 TO FNCT_CONTROL - 1 DO 

5 418 b2ez § FNCT C.IJ = 0; 

; 418 0545 INCR.I FROM 0 TO FNCT_MAX - 1 DO 

: 420 249 FNESIZ f.13 = 0; 

; 621 548 FNISIZ C.IJ = 0; 

: 622 549 END; 

: tS bay ; 

: 635 5 : Initialize ‘passthrough’ work area. 

: 459 554 INCR I FROM 0 TO FOOREC_SIZE - 1 DO 
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RUNOFF initialization 1b. -Sep- 9 VAX-11 Bliss-32 V4.0-742 P 10 
RINIT == body of main routine 1a-8ep =| 1384 4: 39; 3} DISK KSVMG SMASTER: CRUNOFF. SRCIRINIT. BLI:1 (4) 
59 FOOREC £.1] = 0; | 
55 \ 
B22 Initialize tables for variables (.VARIABLE and /VARIANT) 
56 VRCNT = 0; ' Th i : 
826 waOUT 03 etc ere are no variables defined yet 
8 VRFFLG (OJ = ZC" '; 
9 _— QJ = TRUE; 
0 i Initialize the IFSTACK 
FSTK CO, IFSTK_DEPTH] = 0; ' Th i “are 
0 FSTK CO, IFSTK_REQ B = 0; pt Tighe Scene ys hs 
FSTK CO, IFSTK_B000) = TRUE; 
FSTK CO, IFSTK_VRJ = 0; 
FSTK CO, IFSTK— _SOURC RCE] = 0; 
FSTK CO, IFSTK K_FLAG) = xc" "s 


Initialize .LIST ELEMENT character ‘‘counter'’. 
CHR = CHLST; 
HR (0) = 0; 


“nw 
444 
oO 


Initialize list of .LIST ELEMENT counters 
LSTCNT = LSTSTF; 
Initialize .LIST ELEMENT display information 


LCH = LCHLST; 
RCH = RCHLST; 
LOD D 


= 
= Toler DEC NOZ 
“ite eis DEX] = tL “DEFAULT SIZE; 


NANnNNUNHNUNUNN 
Aaa 
=] 

oO 
= 


CO 
be 
LDD CO 
C 
C 
1 


Initialize inter-lList-element spacing; 


pe em ewe we ne eee fefelelelelelelolololololeleloleololololo) 
fe a ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab hb Ab cb db Ab Ab Ab ah Ab dk ah ah ahah ahah eal al eal eal eal eal eal eal eal ea eal 
BDOOOO0O0O0 OOOO 000009 09 09 00 09 09 65. 8 SINISE SOA AAAAAAO 
WN =O OONAUES WN (OOD ONAUE WN 9 OONAULS WN HOV ONAUES WR OVOONAUW —O 
— =z: me em me mm me 5 me me ec ee me mt et be ee =e 


; 
; 
; 
; 
; 
2 
: 


LSTSKP = SKPLST; 
STSKP (0) = 1; 
rt j Sntetet tee List of .HEADER LEVEL counters 
60 T Fft- MAX pe = 6; 
0 CL-INDEX] = 
03 
v's] Set display characteristics for all header level counters to decimal 
608 INCR I FROM 1 TO .HLLIST CCL_MAX_INDEX] DO 
610 HLDSP (.] = 1] = TCONVRT_DEC_NOZ; 
0611 HLLIST C.1] = 0; 


mn 


1 
) 


Set up case translation rules (‘‘as is in input’, i.e., UPPER CASE) 
SETCAS (LEAVE_CASE); 
i Initialize flag table. Set initial enabled or disabled states. 


F 16 
NIT RUNOFF initialization 16-Sep-1984 01:32:39 VAX=11 Bliss-32 V4.0-742 P 1 
-000 RINIT == body of main routine 1o-808-1 3B 04:39:39 DISKSVMSMASTER:CRUNOFF.SRCIJRINIT.BLI:1>~ (4 
> 485 61 ND; 
{eee 
; rt $912 Initialize List of .SAVE/RESTORE variables. ! we#SAVE/RESTORE 
; re O61? Initialize the SAVSTACK 
; 49 0619 SAVSTK CO, SAVSTK_DEPTH] = 0; ! Th ive "'.SAVES" 
: 49 0620 SAVSTK [0, SAVSTK-REQ D4 = 0: nie ets thstiss Aarne pm 
3; 494 0621 SAVSTK (0, Save TK ADORE 3$] = 0; 
; 495 06 ¢ SAVSTK CO, SAVSTK_SOURCEJ = 0; 
; oN 88 ? ; ! #**#SAVE/RESTORE 
: 498 0625 i Initialize the entire ECC structure. The TRUE third argument causes 
: rh be § § us to zero the entity counters as well. 
; 201 06 8 : ECCINI (EXAMP_OFFSET, APPEND_OFFSET, TRUE); 
; 308 0680 § Initialize .HEADER LEVEL processing controls. 
: 505 0632 2 HLC_CO_NBITS = FALSE; ! Don't carry over underlining and bolding t btitles, 
; 506 0633 2 HLC_CO_OVR = TRUE; ' but do carry over everstrih ing. staat Pagans “3 
3 207 0634 § HLC_UPPER = 1; ! Force .HL1s to upper case. 
; 508 0635 HLC_CAP = MAX_LEVELS; ! First character of all .HLs to_upper case. 
; 509 0636 2 HLC_RUNON = 3; ! Generate ‘'-' starting with .HL3 
; 510 0637 2 HLC_HEADLC = i; ! Skip this auny lines after the .HL command 
y 6ST) 0638 2 HLC_HEADLT = 7; ! Anticipate this many Lines when doing a test page 
g Sieg 0639 2 HLC_HEADLB = 3; ! Skip this many Lines before the .HL command 
s SiS 0640 2 HLC_HEADSP = 2; ' Insert this many spaces after the section number. 
; 514 0641 2 HLC_NO_NUMBER = 99; ' ALL headers are numbered. 
: az ast § HLC_CERTER = 99; ! Don't center any headers. 
; aA ee: § : Initialize tab settings; 
: 519 0646 2 TTABLE ECL MAX INDEX] = MAX. TABS; 
$ 339 ets § TTABLE C1J = 8; 
: 522 0649 2 INCR I FROM 2 TO MAX_TABS DO 
: $7 8639 : TTABLE C.1) = 8 + .TTABLE C.1 = 1); 
3 325 065¢ TTABLE CCL_INDEX] = MAX_TABS; 
: 258 0654 5 i End of initialization of tab stops 
: 528 3632 § ! 
: 38 0689 ; 
F 331 0658 : Normal character recognition 
; 238 0660 INCR I FROM 0 TO (atable_length - 1) DO 
3: 534 0661 NATE (.1); 
,- 35 B66¢ 
: 536 6 ! 
s Sov 
: 538 
3; 3 
: 540 
3; «541 


ow 


16 
RINIT RUNOFF initialization 18-se =1984 01:32:39 VAX-11 Bliss-32 V4.0-742 Page 
you-000 RINIT == body of main routine 12=808-1 38s 93:59:83 DISKSVMSMASTER: CRUNOFF .SRCIRINIT.BLI:1> 
; 669 ! 
; 508 SA FLGT [SUB_FLAG, FLAG_ENABLED] = FALSE; ! SUBSTITUTE flag 
s 44 671 FLGT LEFO_FLAG, FLAG_ENABLEDJ = TRUE; ! ENDFOOTNOTE flag 
s 365 ore FLGT LCON_FLAG, FLAG_ENABLEDJ] = TRUE; ! CONTROL flag 
; 546 067 FLGT LQUO_FLAG, FLAG_ENABLED] = TRUE; ' QUOTE flag 
; 547 0674 FLGT CUPP-FLAG, FLAG-ENABLED] = TRUE; i UPPERCASE flag 
; 548 0675 FLGT CLOW_FLAG, FLAG_ENABLEDJ = TRUE; ' LOWERCASE flag 
; 549 Bef8 FLGT LCAP_FLAG, FLAG_ENABLEDJ = FALSE; ! CAPITALIZE flag 
; SSO 067 FLGT LUND_FLAG, FLAG_ENABLED] = TRUE; ' UNDERLINE flag 
: 551 0678 FLGT CBLD-FLAG, FLAG-ENABLED) = FALSE; i BOLD flag 
; 226 0679 FLGT LSPA_FLAG, FLAG_ENABLED] = TRUE; ' SPACE flag 
: 55 0680 FLGT CINDFLAG, FLAG-ENABLED] = FALSE; i INDEX flag 
3; 554 0681 FLGT LHYP_FLAG, FLAG_ENABLEDJ = FALSE; ! HYPHENATE flag 
> Soe 068 FLGT LOVR_FLAG, FLAG_ENABLEDJ] = FALSE; ! OVERSTRIKE flag 
; 556 68 FLGT LSBX_FLAG, FLAG_ENABLED] = TRUE; ' SUBINDEX flag 
s 557 684 FLGT LCOM_FLAG, FLAG_ENABLED] = TRUE; ! COMMENT flag 
:; 558 0685 FLGT CPERTFLAG, FLAG-ENABLED] = FALSE; i PERIOD flag 
$ 222 pee FLGT CBRK_FLAG, FLAG_ENABLED] = FALSE; ! BREAK flag 
s 361 U 0688 ZIF DSRPLUS ZXTHEN 
; 206 U 0689 FLGT CNPX_FLAG, FLAG_ENABLED] = FALSE; ! No-permute-index flag 
% 0690 2 XFI 
; 564 0691 2 
s 365 069 ! 
3 208 Be07 Set up default flag characters for ali flags. 
; 568 0695 2 FLGT beve-fiae. FLAG_CHARACTER] = %C'S$'; ! SUBSTITUTE flag 
; 569 0696 2 FLGT CEFO_FLAG, FLAG_CHARACTER] = 2C'!'; ! Fourie te flag 
; 570 0697 2 FLGT CCON_FLAG, FLAG_CHARACTER] = 2%C’.'; ' CONTROL flag 
: 571 0698 : FLGT CQUO-FLAG, FLAG-CHARACTERJ = X%C'_'; i QUOTE fl 
g Siz 0699 FLGT CUPP_FLAG, FLAG_CHARACTER] = Aiea ! UPPERCASE flag 
s 5735 0700 2 FLGT CLOW_FLAG, FLAG_CHARACTER] 2 ZC*\'s ' LOWERCASE flag 
3; 574 0701 2 FLGT CCAP_FLAG, FLAG_CHARACTER] = %C‘<'; ! CAPITALIZE flag 
s $75 070 2 FLGT CUND_FLAG, FLAG_CHARACTER] = X%C'8'; ' UNDERLINE flag 
; S76 070 § FLGT CBLD_FLAG, FLAG_CHARACTER] = 2C't'; t LD flag 
s Sire 0704 FLGT CSPA_FLAG, FLAG_CHARACTER] = %C'#'; ' SPACE flag 
; 578 0705 FLGT CIND-FLAG, FLAG-CHARACTER] = %C'>'; i INDEX flag 
: 579 0706 FLGT CHYP"FLAG, FLAG-CHARACTER] = X%C'=': i HYPHENATE. flag 
; 580 0707 FLGT COVR_FLAG, FLAG_CHARACTER] = %C‘%'; ' OVERSTRIKE flag 
; 581 0708 FLGT CSBX_FLAG, FLAG_CHARACTER] = 2C*>'; ! SUBINDEX flag 
: 382 0709 FLGT “FLAG. FLAG-CHARACTER] = %C'!': i COMMENT flag 
s 38 0710 FLGT CPER_FLAG, FLAG_CHARACTER] = ZC'+'; ' PERIOD flag 
: 286 148 FLGT CBRK_FLAG, FLAG_CHARACTER) = %C'i'; ! BREAK flag 
; 586 u O73 5 ZIF DSRPLUS 2THEN ‘ 
: 587 U 0714 FLGT CNPX_FLAG, FLAG_CHARACTER] = %C'™'; ! No=permute-index flag 
; 588 0715 FI 
3; 589 0716 
; 590 0717 ! 
: 23) B18 : Update action table to be consistant with the flag table. 
; 298 0720 ATABLE [C.FLGT [QUO_FLAG, FLAG_CHARACTER]] = A_FLAG; ! Enable QUOTE flag 
3 594 14 ATABLE [.FLGT CUPP_FLAG, FLAG_CHARACTER = A_FLAG; ! Enable UPPERCASE flag 
; 6595 7 § ATABLE [.FiLGT CLOW FLAG, FLAG_CHARACTER = A_FLAG; ! Enable LOWERCASE flag 
. 9 07 ATABLE [.FLGT CUNDTFLAG. FLAGCHARACTER]] = A“FLAG; | Enable UNDERLINE flag 
. e38 8 : ATABLE -FLGT CSPA_FLAG, FLAG_CHARACTER = A_FLAG; ! Enable SPACE flag 


609 
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RUNOFF initialization V4.0-742 Pa 
RINIT body of main routine CRUNOFF.SRCIRINIT.BLI;1 
y § Initialize IRAC 
7 IRAC_IPAGEN = 1; ! Input starts on page 1. 
7 § IRAC_ISEQN = 0; . — 
be 0 IRAC_BARS = FALSE; ' Don't want change bars. 
07 1 IRACIDRAFT_FLG = &C* °; i Default /DRAFT 
8? 5 Initialize SCA 
0735 BEGIN 
07 $ AP 
07 SCA : VECTORCSCA_SIZE], 
0738 MRA : REF FIXED_STRING: 
red 
0741 ! The following initialization block is different for DSRPLUS because the storage 
bts : area where some SCA words are stored are different. This means that if we say, 
0743 3 ! “SCAC.1J = 0 for all the SCA, then the special (SAVED) ones would have a storage 
ood ; address of zero. 
0746 3 INCR I FROM 0 TO (SCA_SAVE_START = 1) DO SCAL.1] = 0; 
0747 SCA_CC_OK = FALSE; 
0748 SCA_KER = FALSE; 
0749 INCR I FROM (SCA_SAVE_END + 1) TO (SCA_SIZE = 1) DO SCALC.I] = 0; 
0750 3 Stat .CASE = TROE; 
0751 SCA_RM = 70; ! Changed from 60 by KAD, 9-Jun-1983. 
or ee SCA_LM = 0; 
075 SCA-SPACING = 1; 
0754 3 SCA-FC = TRUE; 
0755 ; SCA_FILL = TRUE; 
0756 SCA_JUSTIFY = TRUE; 
0757 3 SCA_CROCK = TRUE; 
0758 3 SCA-PERIOD = TRUE; 
0759 SCA_FLAGS = TRUE; 
0760 3 SCA_DO_UND = TRUE; 
0761 3 SCA_DO_BLD = TRUE; 
0768 3 SCA_DO-OVR = TRUE; 
076 SCA_DO_HYP = TRUE; 
0764 SCA_DO_IND = TRUE; 
0765 SCATAUTOTITLE = TRUE; ! AUTOTITLE in effect 
0766 SCASECT_EMPTY = TRUE; i No HEADER LEVELs with text yet. 
0767 SCA_INDER = TRUE; ! Obey indexing commands. ; : 
0768 SCA_XROUTINE = FALSE; ' FALSE ==> use XR as the indexing routine. 
0769 SCA_BAR_CHAR = %C'!'; ! Default change bar character. 
0770 SCATWRD-PNTR = .FS_START (MRA); 
pre) SCA_WRD_CPEND = RINTES; 
$728 ! End of initialization of SCA 
0774 ! 
Bite END; 
AA | 
a4 ! 
ak H Initialize OUTOPT 
O70 OUTOPT_UND_CHAR = 2C'_'; ; 
781 OUTOPT-UND-NOSP = FALSE; ! Underline character is not non-spacing. 
0782 OUTOPT_UND_SEP = FALSE; ! Don't use a separate line for 
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16 
FF initialization 1}. -Sep-19 2:32:39 X-11 Bliss-32 V4.0-742 Pa 14 
T == body of main routine 14- ~tep al 198 Oy: 39; 3} Bs SKSVMGM TER: CRUNOFF SRCIRINIT. BLIsi> (4) 
! underlining. 
Do special functions by overprinting. 
Do not use the backspace character. 


OUTOPT_OVER = TRUE; 
QUTOPT=BACK = FALSE; 


i Pick up date and time 
RNODAT (DATTIM); 
! Initialize GCA 


éca -AUTOSUBT = TRUE; ! Default is .AUTOSUBTITLE 1 
GCA-AUTOPARA = FALSE; i Default is .NO AUTOPARAGRAPH 
GCA_AUTOTABL = FALSE; ' Default is .NO AUTOTABLE 
GCA_AUTOJUST = TRUE; ' Default is .AUTOJUSTIFY 
GCA_KEEP = FALSE; i Default is .NO KEEP 
GCA_MAX_ASTN = 1; 
GCA_BARS = FALSE ! Don't want change bars. 
GCA_BARS_ENAB = FALSE; 
GCA_BARS_ON = FALS 
GCA_EVER_BARS = FALSE; ' Change bars never seen. 
GCA_CMD_BAR = TRUE; i Assume user won't forbid bars. 
GCA_CMD-RIT = FALSE i Don't shift /RIGHT. 
GCA_CMD-PAGES = FALSE; i Don't assume /PAGES. 
GCA_DEBUG_CND = FALSE; ' Don't assume /DEBUG:CONDITIONALS 
GCA_DEBUG_INDEX = FALSE; ' Don't assume /DEBUG: INDEX 
GCA_DEBUG_TOC = FALSE; ! Don't assume /DEBUG: CONTENTS 
GCA_DEBUG FIL = FALSE; : Don't assume /DEBUG:FILES 
UND = TRUE; Assume user won't forbid underlining. 

_CMD_ = TRUE; ! Assume user won't forbid bolding. 
GCA_CMD_OVR = TRUE; ' Assume user won’ t forbid overstriking. 
GCA_CMD_IND = TRUE; ! Assume user won’ t forbid indexing. 
GCA_BIX = FALSE; ' Assume user won’ t say /BIX 
ae ! Assume user won't say /BTC 


! Changed from 60 by KAD, 9-Jun-1983. 

GCA “note PRIM = r Primary margins for .NOTE 
Changed from 15 by KAD, 10-Jun-1983. 

GCA_NOTE_ALT ' Secondary margins for .NOTE 

eta “SKIPPING i There are no active ifs” 

GCA_FOOT_XTN 


GCA~INDER_FMT = TRUE: 


ZIF DSRPLUS ZTHEN 
A_XCASE = LEAVE_CASE; 


GCA_XCASE = ONE_CAP; 


> 

* 
wn 
m 
. 


Generate DOTS in the index 


For DSRPLUS, default index case rule is stet-case. 


For DSR, default index case rule is cap. first letter. 


GCA_MAX ene S MAX_REQUIRE; 
GCA_REQ”DEPT = 0; 

gca_page_ An = “0; 
gca_contents_cnt = 0; 
gca_index_cnt = 0; 
gca_new_cref_cnt = 0; 


No .REQUIRES yet (i.e., main file) 
Have no phys teat pages yet. 

No table-o scontents records. 

No index records. 

No output .BRN records. 


RINIT 


se 
~w 


< 
i 
So 
oO 
oO 


DISKSVMSMASTER: CRUNOFF. SRCIRINIT.BLI;1 ( 
No input .BRN records. 


Not /AUTOMATIC processing. 

No unresolved crefs yet. 

No srese-ve terre e 

No input .BRN file for cross-referencing. 
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== body of main routine 3B 04:58:87 VAXw 11 Bliss=32 V4.0e742 Page 
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~N 
— 
Ww 


gca_old_cref_cnt = 0; 


gca_black_box = 0; 
gca_cref_errcnt = 0; 
Qca-cross_reference = 0; 
gca_expand_cref = 0; 
gca_old_brn_exists = 0; 
gca_cref_changed = 0; 
gca_do_cont_already = false; 
gca_do_index_already = false; 


GCA_PCHAX = FALS 
GCA-FLAG_CMD = H “FLAGS ALL; 


No chan es yet in cross-references. 
No .DO CONTENTS commands have been hit. 
No .DO INDEX commands have been hit. 


No pending .NUMBER CHAPTER/APPENDIX. 


GCA_LINE_PEND = ! No Lines pending. 

GCATCASE~= LEAVE CASE; 

GCA_CMD_ISQ = FACSE; Don't output input Line sequence numbers. 
GCA_CMD-OSQ = FALSE; Don’t output output Line sequence numbers. 
GCA “ORANGE _CNT = 0; No output pa es specified. 


FALSE; 
eCAn CMD Paul = Paice; 


ZIF (2BLISS(BLISS36) Lng DSRPLUS) XTHEN 
GCA_TWIDTH 36 = 


err re tr 


Start outputting immediatel 
Assume user ba ¥ say /QUIC 
| 


U 0861 


Cc 
oO 
co 
o 


Flag to tell if terminal width is changed. 


SQN NNN NN SN NN 


WAWI AWAD PPPOPUNPoNNNN SS SS SO 
AUF WR $$ O OO NOUS WN OVO ONOuUIS 


086 GCA_TESCAPE_36 = ! Terminal escape characteristics. 
737 0864 <FI 
0865 

739 0866 ' . ; 
740 0867 Initialize PHAN 

PHAN_PLINES = 66; ! Can have this many Lines per page at most, 
743 0870 
744 0871 ZIF XBLISS (BLISS32) XTHEN 
745 087 PHAN_SLINES = 66; 
746 U 087 ZELSE 
747 U 0874 PHAN_SLINES = 60; ' but the spooler allows only this many, 
748 0875 ZF I | 
749 0876 | 
750 0877 PHAN_LLINES = 58; ! and I'm going to let you try to write this many. 
751 0878 PHAN_TOP_PAGE = TRUE; ! Start at top of a new page | 
752 0879 PHAN_LINES TP = 0; 
753 0880 PHAN_FIGURE = 0; ' No waiting figures 
754 0881 PHAN_TOP_FIRST = TRUE; : Output starts at top of first page. 
755 088 PHAN_HEADER = FALSE; ' Don't want header at top of first page unless .FIRST TITLE | 
756 088 PHAN_FORM PEND = FALSE; ' No pending form feed. 
757 0884 PHAN_PAGING = RUE ; ! Divide document into pages. 
758 0885 PHAN-CMD_PAGING = TRUE; Assume /PAGING 
759 886 PHAN_ -RIGAT_ = 0; ' Don't shift output right. 

PHAN_DOWN = 0; ' Don't move output down on page. 

PHAN_ SIMULATE” = FALSE; ! Don't simulate formfeeds. 

PHAN_BOTT = 0; ' Nothing on page yee: 

PHAN-PAUSE =F LSE; ! Don't assume /PAUS 

PHAN_LCHAR = 0; ! No character to the left of the page number 

PHAN_RCHAR = 0; ! No character to the right of the page number 


' 
Initialize current page number 
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RINIT RUNOFF initialization 1p=300" 138% 01:36:39 VAX-11 Bliss-32 V4.0-742 Page 16 
v04-000 RINIT == body of main routine 14-Sep-1984 13:07:51 DISKSVMSMASTER:CRUNOFF.SRCJRINIT.BLI;1 (4) | 
: 770 0897 BEGIN 
: OF} $899 MAP PAGEN : VECTOR CPAGE.SCT_SIZE): 
: oo 0900 
3; 774 0901 INCR I A ocRCe 0. TO PAGE_SCT_SIZE = 1 DO 
s 9 8308 PAGEN C.1] = 0; 
: 776 090 
s ire 0904 END; 
: 778 0905 
3; 6¢ry 8308 PAGEN CSCT_PAGE) = 
: r90 Baye PAGEN SCT_RUN_ PAGE) = 
; 782 0909 ' Set up initial me characteristics for the various parts of the page 
fe cae Bt Ba peo 
> «785 gat¢ PAGEN CSCT_PAGE _DJ_= TCONVRT_DEC_NOZ; ! Page number part to decimal, no heeding zeros. | 
; 786 091 § PAGEN CSCT_INDEX_D] = TCONVRT_LET_MIX; i The word index appears as “inde | 
3; «787 0914 PAGEN LSCT_CHAPT_DJ] = TCONVRT” “DEC_NOZ; i peers to decimal, no leading zeroes. 
; 4788 0915 2 PAGEN CSCT_APPEN_D] = TCONVRT_LET_UPP; i copendiees to upper case letters. 
; a4 pais 2 PAGEN CSCT_SUBPG_DJ = TCONVRT_LET_UPP; i Subpages to upper case letters. | 
; 791 0918 ; ! 
: 79 0919 ! Initialize next page number 
; 7 0920 ¢ : 
: 794 0921 BEGIN | 
: 795 O35¢ 3 MAP 
; 796 092 ; NPAGEN : VECTOR FPAGE SCT_SIZE], 
; 797 0924 PAGEN : VECTOR CPAGE-SCT"SIZE]; 
: 798 0925 3 
; TR? 0926 3 INCR I FROM 0 TO “s SCT_SIZE = 1 DO | 
; 800 0927 3 NPAGEN C.1] = .PAGEN [.1]; | 
; 801 0928 3 
; 802 3434 § END; 
3; 8035 0930 
; 804 0931 $ NPAGEN CSCT_PAGE] = 
: 805 ane NPAGEN CSCT_RUN “PAGE) = 2; 
: 806 0933 2 dee 
; yt boa i Initialize paragraph description table. 
; 809 0936 PDT = PDTSTF; ! Point to paragraph information. 
: 810 0937 PDT_TP = 2; ! Make sure this many Lines are 
3; 6811 0938 § ' available on current page, 
: 812 0939 PDT_SKIP = 1; ! then skip this many Lines unless 
: 83 0940 ! at top of page or section is empty, 
; 814 0941 PDT_INDENT = 5; ! and finally, indent this much, 
3; 815 094 
; 816 094 it ! R : : 
s 87 0944 He ' Delete leftover index entries, if any. 
; 818 0945 e } 
; 819 094 +’ : -NDXPOL NEQ 0 
s 820 94 tt THEN 
; 821 948 Hi BEGIN 
3 Hi 949 He FPOOL (NDXPOL); 
3; 8 950 7% NDXSGE=0; 
$ by 951 4H NDXSGF= =0; 
3; 826 95 i! 


Sete Ge Sete Se Ge ee Se See Se Ge ete as 
000000 000000000000 
WUAWANNWirorera 

NM—OODONOUS WN O0OO~) 


0 0900 09 00 00 CD 
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T == body of main routine 14- ioe 138 9}: 393 3} DISKSVMSMASTER: CRUNOFF. SRCIRINIT.BLI; Pyee (A 


0 

I 

4 4 IF .XTNPOL NEQ 0 

5 \ THEN 

8 4 BEGIN 

§ it Clear leftover transaction numbers 

0 ii FPOOL CXTNPOL) 

.' TNCNT = ! No transaction numbers yet. 
4 
5 
7 
8 
9 


=< 

“~ 

z 

- 

w“ 

Be 
nhnnnnun 


1 END; ! End of RINIT 
-TITLE RINIT RUNOFF initialization 
-IDENT \vV04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 

P.AAA: .ASCII \001RNO.TMP\ 


30 00000 

30 QQO0A P.AAB: .ASCII \O02RNO.TMP\ 
53 00014 P.AAC: .ASCII \SYSSERROR\ 
53 0001D 
53 00026 


vn 
oo 


P.AAD: .ASCII \SYSSINPUT\ 
P.AAE: .ASCII \SYSSOUTPUT\ 


~PSECT SOWNS,NOEXE,2 
000A 00000 meee aOR 


VIM & & 
MENwOO 
Vn uu 
oOurn S&S 
WMUMIVIngngs 
&oromm 
Mn & 
WImrno sn 
eee 
~NOuImm 
Mmronuw' 
Perr 
VIVIAN 
WWIWIN— 


oO 
oO 
oOo 
o 
“~ 
n“ 


04 DRE 
00008 s10esriLé Sree: 
QOO0A i 
SIOBSFILE SPEC: 

-@ORD 


“BYTE 


. ADDRE 
SIOBSFILE SPEC: 
-@ORD 1 
oH |, ee, 


>om oom oom > 
MR a es 1 OD 


Cc 

0 

2 ° 

4 -ADDRE 
8 SIOBSFILE SPEC: 

GORD 

A 

C 

0 

2 

4 


So 
o 
oo 
o— 
oo 
oo 
oo ooo Soo Sooo Ooo 


om 


» LSTSTF 


FRA 
a XhRA SrA SBTMRA 

SBITSF. TITTSF 
: a + ATABLE 


Pane 
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v04-000 RINIT == body of main routine 12-88-1382 93:58:83 DISKSVMSMASTER:CRUNOFF . SRCJRINIT.BLI: 1° (4) 
.EXTRN TSF, DATTIM, FNESIZ 
“EXTRN FNISIZ, FNCT, FOOREC 
“EXTRN GCA, HCT, IFSTK 
“EXTRN IRAC, NPAGEN, PAGEN 
-EXTRN BRNOOB, FLGT, CA 
“EXTRN SCALIT, FSO1. OUTOPT 
“EXTRN ECC, FRMSTD, FRMSTK 
“EXTRN HLC,. HLLIST, HLDSP 
-EXTRN SAVSTK, LSTCHR, LSTLCH 
-EXTRN LSTRCH, LSTLDD, LSTCNT 
-EXTRN LSTSKP, CHLST, LCHLST 
“EXTRN RCHLST. LDDLST, NML 
“EXTRN PDT, PHAN, SKPLST 
*EXTRN TTABLE , 10BSTK, RNEIOB 
.EXTRN RNAIOB, RNIIOB, RNOIOB 
.EXTRN FOOIOB, FOTIOB, FO110B 
.EXTRN FO2IOB, TTEIOB, TTI10B8 
EXTRN TTOIOB, TSIIOB, VRC 
EXTRN VRNAME, VRLNG, VRBOOL 
EXTRN VRFFLG, VRTFLG, VRSRC 
EXTRN SAVINI, NATE, RNODAT 


“EXTRN SETCAS 
“EXTRN XPOSFAILURE 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 .ENTRY RINIT, Save R2.R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 
5B 000000006 EF 9E 00002 MOVAB TSF, R11 : 
5a 000000006 EF 9E 00009 MOVAB HLC+8, R10 : 
59 000000006 EF 9E 00010 MOVAB PHAN+8, RO : 
58 000000006 EF 9€E 00017 MOVAB SCA, R : 
57 000000006 EF 9E 000iE MOVAB FLGT+84, R7 : 
56 000000006 EF 9E 000 MOVAB GCA+76, R6 ; 
000000006 EF D4 0002C CLRL =IRA+12 + 0409. 
000000006 EF 000000006 EF 9E 00032 MOVAB IRA+16, IRA : 
000000006 EF 000000006 EF 06 00030 VL IRA, IRA+4 : 
000000006 EF D4 00048 CLRL MRAA+12 > 0410 
000000006 EF 900000006 EF i O004E VAB  MRAA+16, MRAA ; 
000000006 ‘EF 90000006 EF 00 0005 VL MRAA, MRAA+4 : 
000000006 EF D4 00064 CLRL  FRA+{12 > 0411 
000000006 EF 900000006 EF 9E OO06A MOVAB FRA+16, FRA : 
00000000G EF 000000006 EF 00 00075 VL —s- FRA, ~—FRA+4 : 
000000006 EF D4 00080 CLRL = FSO1+12 + 0412 
00000006 EF 99 06 G EF 3 99086 MOVAB FSO1+16 FSO1 : 
0000000G_ EF G EF DO 0009 MOVL S01, FS0144 : 
00000006 EF D4 0009¢ CLRL  TITMRA+12 > 0413 
000000006 EF 00000000G EF i 000A2 MOVAB TITMRA+16, TITMRA : 
000000006 _ ‘EF 00 G EF DO OOOAD MOVL TITMRA, TITMRA+4 : 
0000006 EF 04 000B8 CLRL SBTMRA+12 > 0414 | 
000000006 EF 000 G EF 9E 008 MOVAB SBIMRA+16, SBTMRA : 
000000006 EF 000000006 EF DO 000C MOVL §§ SBIMRA, SBTMRA+4 : 
00000006 _ EF p4 004 CLRL KMRA‘ 12 > 0415 
00000006 EF 900000006 EF ; OODA MOVAB XMRA+16, XMRA : | 
00000006 EF 000 G FF v0 oars MOVE MRA, XMRA+4  ocen! 
ogonoanocer o D4 § ig 1$ €LRL ISFACI] : 63 
OOOOD000GEF40 D4 OOOF CLRL  SBTTSFCIJ : 04 


BS SO a Be a a bape a ee — 
1 ' 
RINIT RUNOFF initialization 1Res Sep =1386 91: 35: 3? VAX=11 Ol ise. 32 V4.0-742 Page 19 
v04-000 RINIT == body of main routine 14-Sep 1‘ DISKSVMSMASTER: CRUNOFF. SRCIRINIT.BLI;1 (4) 
20000000GEF EF4O D4 001 9 CLRL WATTS CII 3 0424 
GEF4O 04 001 CLRL x1 SF I + 0425 
50 ‘ F3 001 AOBLEQ H , 1, .1$ t 0420 
000000006 EF 0 FB 001 ; CALLS #0, SAVINI + 0629 
f 000000006 EF 3 1 NOVAB SEA, TSF ; 0435 
30 A 38 D 0] 3 MOVL 30" 48(RO) : 0436 
$8 000000006 EF 3 O1 z MOVAB sartst TSF ; 045 
30 AO 20 DO 00131 MOVL #32, RE 0) + 0438 
$8 000000006 EF ii ot ; MOVAB Tirtse TSF ; 0439 
30 AO 58 D 801 F MOVL hao! RO 0) + 0440 
68 000000006 EF i 00143 MOVAB KISF,, TSF ; 0441) 
30 AO 5 DO 80140 MOVL #32. 48(RO) + 0442 
000000006 EF 000000006 EF 9E 00151 MOVAB MRAA, MRA + 0446 
6B 00000000G EF 9E 0015¢ MOVAB SFA. TSF + 0447 
soem is be bores im WAST  be86 
fe OAR 8§ bo aD46¢ movt #8. GeAsSo. : Me 
000000006 EF 000000006 EF DO 00174 MOVL RNEIOB, RNIIOB + 0457 
000000006 EF 00000000G EF DO 0017F MOVL —-— RNAIOB, RNOIOB + 0458 

OOF4  28F 00 6E iceaaaa 00 2c 0018A MOVCS #0, (SP), re S264, 10B$ ; 0459 
000000006 EF atts BF DO 00196 MOVL  #50397245, 10B$ ; 
00000000G_ ‘EF O20E 8F BO OO1A1 MOVW #526, 1OB$RESULTANT+2 ; 

OOF4 BF 00 6E SR 00 2¢ OO1AA MOVCS 6&0, (SP), #0, #244, IOBS ; 0460 
000000006 EF 0301003D 8F 00 001B6 MOVL  #50397245, 10B$ : 
00000000G_ EF 020E 8F BO 001C1 MOVW #526 , 1OB$RE SUL TANT+2 ; 

OOF4 8F 00 6E ae: 00 2C OOICA MOVCS #0, (SP), #0, #244, IOBS ; 0461 
000000006 EF 0301003D SF 00 00106 MOVL § #50397245, 10B$ : 
000000006. EF 020 8F BO 001E1 OVW #526 6, IOBSRESULTANT+2 : 

OOF4 BF 0 6E 00 2C OO1EA MOVCS , (SP), #0, #244, IOBS + 0462 

000000006 EF O01F1 ; 
000000006 EF 0301003D &8F 00 OO1F MOVL #50397245 : 
000000006 _ ‘EF 020E 8F B0 00201 MOVW #526, {ossee oES FANT#2 ; 
OOF4 8F 00 6E 00 2C 0020A MOVCS #0, (SP), #0, #244, IOBS + 0463 
900000006 EF 00 11 : 
itdintdit Er ele et pt 6534 MOV #36, Te oaSRE Spe TANT#2 

OOFS  8F 00 6E Saas 00 BC 09 movcS #0, 8 P), ab #244, I0BS 0466 
000000006 EF iatiats GF pO 00236 MOVL #50397245, 10B$ ; 
00000000G_ EF 00000900" cf : 00 41 MOVAB 128 BSFILE SPEC, 10B$ : 
Sooosoeoe ERE OBA Bs 0585 Bisb2 whe Ms eaten 

OOF4 BF 00 6E anp00r ~ 00 C 0 s¢ MOVC * » (SP), #0, BS: 10B$ ; 0469 

F 0301003) &8F DO 00 MOVL #50397245 : 

8 it Er 000000 0’ EF 8 0 $8 MOVAB Heer ILE + 4088 10B$+4 ; 

09 p 006 EF E br 8p 0 43 OVW IOBSRESULTANT+2 : 

G EF 1 0 8 BISB2 foBs+4 : 
00000006 EF 00000000G EF 9E E MOVAB Fotos’ FOO108 : 0470 


Page 
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RINIT == body of main routine 


RUNOFF initialization 


vo4-000 


XPOSOPEN 


000000006 
000000006 


. 10BS+4 


BSFILE_SPEC 


SOOoOoCooooooooooooooooo 
pe eee le oleate eloleleilelelolelelololea) 


unundou Tsu Mwodw su OwCou su DOCOOT Vl FIM TIMMS IMT OOO OVOWST WWW Oo 
PROP DOPUPOOSAOPUPDMOAOSU OCOOCOGFP OO 04 0004604 BOO G8RP BOOKS ASOSS 


he ee ee 


MTNOPR Mn CUM) 


OoeCooooooo 


SPEC, 10B$+4 


10B$+%6 
10B$+44 
FAILURE 
oes 
, XPOSOPEN 
10B$+44 
OSFAILURE 
=(SP) 
10B$ 
a3 


és 


=(SP) 
SICBSFILE 


#1 


PUSHAB_ XP 
FNCTCIJ 


AOBLEQ #11, I, 2$ 


I 


PUSHAB XP 


000000006 GF 
000000006 Fe 


90000000" 
000000006 
000000006 
00000000GE 
00000000GE 
000000006 
000000006 


F5 
EE 
F5 


000000 0r-fr-r-c000 
fe ee) ee ew lw wl lala lolol oalolo) 


000000006 


rs 
th 
[So 
[J 
So 
So 
oS 
So 
So 
So 
oO 


IFSTK+28 
+ LSTCHR 


COOCCOCO COCO OCOCOCOOSOSOOCSOOSOOOOOOOOOOSOOSoOo 


we WIN en i OO DOC OMOOM YOO RM eR Ot he te te et 
WOOWPR. WOOKOCOO & WWILUIINT OWS TOMAS OWIIO WO WIN a 
uo we “ 


000000006 


00000000G_ FF 


——— 


D1 
RINIT RUNOFF initialization 16-Sep-1984 9  VAK-11 Bliss-32 V4.0-742 1 
v04-000 RING -- body of main routine 1e-8ep- 198 93; 39; 3 DISKSVMSMASTER: CRUNOFF. SRCIRINIT.BLI; rise (3 
50 000000006 EF DO 00415 MOVL LSTCNT RO : 0591 : 
60 a DS YO41C MOVL #5, (RO) : : 
0% AO 1 7D O4 it MOV *@(RO) ; $92 ; 
990009 OG EF 000000006 EF 9E 00423 MOVAB SKALSt LSTSKP + 059 ; 
0000000G FF 1D 04 E MOVL #1, @LSTSKP + 0598 : 
00000000G_ EF ° D 4 MOVL #6, HLLIST ; 060 > 
000000006 FF D6 04 g MOVL #1, HLLIST+4 + 060 ; 
1 000000006 Et DO 0044 MOVL HLLIST, R1 + 0608 : 
0 D4 O044A CLRL oI : : 
0 11 bo44C BRB 4$ : ; 
QOO0D000GEF4O D4 Oude 5$: CLRL HLDSP=4C1) + 0610 ; 
OOOOO000GEF4O D4 045 CLRL = HLLIST#4C1) > 0611 ; 
EE 50 51 F3 0045C 6$: AOBLEQ R1, I, 5$ + 0608 3 
000000006 EF 7C 00460 CLRQ.  SAVSTK+8 + 0622 ; 
000000006 FF 7C 00466 CLRQ SAVSTK + 0619 : 
1 DD 0046C PUSHL #1 + 0628 : 
OB DD OO46E PUSHL #11 : ; 
43 D4 0047 LRL. = (SP) : ; 
00000000V EF 03 FB 00472 CALLS #3, ECCINI ; : 
6A 03 7D 00479 Ova #3, HLC+8 3: 0636 Ps 
04 AA 04 88 0047¢ BISB2 #4, HLC+12 + 0633 : 
FB OA 01 DO 00480 #1, HLC + 0634 ; 
FC AA 06 DO 00484 MOVL #6, HLC+4 : 0635 é 
08 AA 01 DO 00488 MOVL #1. HLC+16 t 0637 : 
OC AA 07 DO 0048C MOVL #7. HLC+20 : 0638 F 
10 AA 03 DO 00490 MOVL #3, HLC+24 : 0639 ; 
18 AA 02 DO 00494 VL #2. HLC+32 > 0640 ; 
14 AA 63 BF 9A 00498 MOVZBL #99, HLC+28 + 0641 ; 
1C AA 63 8F 9A 0049D MOVZBL #99, HLC+ ; : 0642 3 
000000006 EF 28 DO 004A2 MOVL #40. TTABLE + 0646 : 
000000006 EF 08 D0 0049 MOVL 48, TTABLE*8 : 0647 ; 
QO000000GEF40 00000000GEF 40 08 Ci bobs 7$: ADDL3 fs g, TTABLECIJ. TTABLE+4(1 : 0650 : 
EE 50 28 F3 004C1 AOBLEQ ; : 
000000006 _ ‘EF ¢ DO 004¢5 OVL Ho: 1 AbtE ss > 065 ; 
2 D4 004CC CLRL > 066 ; 
52 DD OO4CE 8S: PUSHL : 0661 : 
000000006 EF 01 Fe 00400 CALLS #1, NATE : ; 
EF 52 OOOOOOFF 8F F3 00407 AOBLEQ #255, I, 8$ ; : 
7E D4 O40 CLRL. = > 0666 : 
000000006 EF 01 FB 00461 CALLS #1, SETCAS : : 
AC AZ D4 004E8 CLRL —s-:*FLLG + 0670 F 
BO A7 01 DO O04EB MOVL #1, FLGT+4 : 0671 ; 
B4 OAT oi D0 OO4EE MOVL #1. FLGT+8 : 067 : 
B8 AZ 1 0 AF MOVL 1; FLGT+12 > 067 3 
BC AZ 01 D0 OO4F MOVL #1, FLGT+16 > 0674 ; 
CO OA? 01 70 OO4FB MOVG 1, FLGT+20 : 0675 ; 
C8 «A? 01 7D OO4rE MOVQ = #1, - FLGT+28 > 0677 ; 
DO OA? 01 7D 00503 MOVQ #1. FLGT+36 : 0679 3 
D8 AZ 7C 00507 CLRQ  —- FLGT+#44 > 0681 3 
EO A? or 00 050A MOVL #1, FLGT+52 > 0683 : 
EG A7 1 7D 0050 MOVa #1 A" Lata 3: 0684 3 
EC A? D4 0051 CLRL = FLGT #64 : 06 ; 
FG OAT 4 D 1 MOVL g. FLGT #72 > 069 ; 
FB OA? 1D 1 MOVL #33. FLGT+7 : 696 : 
FC OA? E » 1 MOVL Hb, FLGT +80 > 069 : 
67 SF OBF. «9A 0052 MOVZBL #95; FLGT+84 > 0698 : 
} 
j 


1 
RINIT RUNOFF initialization 1hese -1984 :32:39 VAX=-11 Bliss=-32 V4.0-742 P 
v04-000 RINIT == body of main routine 12-8 08-1 3b 93:58:83 DISKSVMSMASTER: CRUNOFF. SRCJRINIT.BLI:1 > B 
6 a7 E 8F 9A 00525 MOVZBL #94, FLGT+ : 0699 : 
08 A? 2f F OA a3 A MOVZBL #92. FL GT se + 0700 ; 
c AZ C 06 MOVL a6 » FLGT+9 + 0701 ; 
10 A? 6 D0 005 MOVL #38, FLGT+100 : 07 é ; 
14 AZ A D6 03 MOVL #42, FLGT+104 : 07 ; 
18 «A? 3 pO 00538 MOVL #35. FLGT#1 : + 0704 ; 
1¢ A? E DO 0053F MOVL #62, FLGT+11 : 0705 3 
20 A? D DO 243 MOVL #61, FLGT +i 16 : 070 ; 
24 «AZ ¢3 DO 0054 MOVL #37, FLGT41 + 070 ; 
8 A? E D0 548 MOVL 6 * FLGT#+124 : 0708 ; 
C A? 1 DO 0054F MOVL sf 5: FLGT+1 + 0709 ; 
0 Az B DO 0993 OVL #43. FLGT+1 + 0710 ; 
or a 7c «68F «9A 005 MOVZBL #124, FLGT+136 + 0711 : 
50 000000006 a 9 0055¢ MOVAB ATABLE, RO : 0720 ; 
00 8740 3 90 0056 MOVB #3, @FLGT+84CROI : ; 
50 000000006 ai 3 00568 MOVAB TABLE, + 0721 ; 
04 B740 3 9 O0S6F MOVB #3, @FLGT+88CROJ : 
50 000000006 ai 3 0574 MOVAB ATABLE, R : 0722 
08 8740 3 90 00578 MOVB #3, @FLGT+92CROI ; 
50 000000006 EF 9E 00580 MOVAB TABLE, R : 0723 
10 B740 03 90 00587 MOVB #3, a@FLGT+100(ROJ ; 
50 000000006 EF 9E 0058¢ MOVAB ATABLE, R + 0724 
18 8740 03 90 0059 MOVB #3, @FLGT+108(ROJ ; 
000000006 EF 01 00 00598 MOVL #1. IRAC+12 + 0728 66 
000000006 EF D4 0059F CLRL t 0729 69 
000000006 EF 01 BA 005A5 BICB2 #1, IRAC : 0730 
009000006 _ ‘EF 20 DO 005AC MOVL #32, IRAC+24 : 0731 00 
50 04 00583 CLRL : 0746 
6840 D4 00585 9$: CLRL = SCA : 6 
F9 50 18 F3 005B8 AOBLEQ #24, I, 9$ ; 20 
6¢ B88 D4 005BC CLRL. a@SCA+108 + 0747 
0984 DB D4 005BF CLRL  aSCA+132 : 0748 00 
50 25 DO 005C3 MOVL #37 ] : 0749 
6840 D4 005C6 10S: CLRL —_ Scat : 65 
FS 50 000000SF BF F3 005C9 AOBLEQ #95, I, 10$ : 53 
00p0 = ¢8 01 pd 00501 L #1, SCA+208 : 0750 
78 «BB 46 8F 9A 005D6 MOVZBL #70, aSCA+120 : 0751 6C 
74 BB D4 00508 ascA+116 ; O75¢ 6E 
7c «BB 01 DO 005DE MOVL #15 @SCA+124 : 075 
0094 C8 01 00 O0SE¢ MOVL #1, SCA+148 : 0754 64 
68 68 01 DO 005E MOVL #1. @SCA+104 : 0755 22 
64 BB 01 DO 005EB MOVL #1, aSCA+100 > 0756 
70 B68 01 DO OOSEF MOVL #1. aSCAt+112 : 0757 
008 D8 4 D0 OF 3 MOVL #1, aSCA+128 : 0738 
090 D8 1 DO 005F OVL #1. aSCA+144 : 0759 
00A8 CB 1F 88 005FD BISB2 #31, SCA+168 : 0764 
008C 8 o1 DO 0060¢ OVL #1, aSCA+140 : 0765 
00D4 C8 1 D0 0060 MOVL #1, SCA+21 : 0767 
00B4 ¢ 01 7D 0060C OV #1. SCA+1 ; 0766 
088 v8 7c «BF 9A 00611 MOVZBL #124, aSCA+136 > 0769 
OF8 CB 00000000G FF DO 00617 MOVL  a@MRA. SCA+248 : 0770 
011 8 0G Br 9A 00620 MOVZBL #RINTES SCA+280 ; orn 
000000006 EF F BF 9A 00626 MOVZBL #95, OUTOPT : 0780 
000000006 FF 7C 0062E CLRQ ut PT+4 : 0781 
000000006 _ EF 1 00 06 4 MOVL #1, OUTOPT+16 > 0784 
900000006 EF p4 0638 CLRL OUfoPT+i2 ; 0785 
0000006 EF 9F 00641 PUSHAB DATTIM : 0789 


ee 
RINIT RUNOFF initialization 16-Sep-1984 01:32:39 VAX-11 Bliss-32 V4.0-742 P 3 
v04-000 RINIT == body of main routine 18-808- 1382 04:58:83 DISKSVMSMASTER:CRUNOFF .SRCIRINIT.BLI:1> é 


000000006 EF 01 FB 00647 CALLS #1, RNODAT ; 
BC B86 1 DO 0064 MOVL #1. a@GCAt8 + 0793 
B Bb D4 63 CLRL = @GCA+G + 0794 
C : D4 006 CLRL agcAsi2 + 0795 
C6 B6 1 DO 38 MOVL so#f agcarie + 079 
0080 D6 D4 00 ¢ CLRL actas 4 + 079 
2c AG 61 DO 0 6 MOVL #1, GCA+120 : 0798 
C8 Ab 1 8A 00664 BICB2 #1. GCA+ : 0799 
CC Ab 1 BA 0668 BICB2 #1. GCA+24 * 0800 
DO «AG 1 BA 666 BICB2 #1. GCA+ : + 0801 
D4 «Ab 01 8A 006 BICB2 #1. GCA+ + 080 
66 4 8 0674 BISB2 #1. GCA+76 : 080 
66 8 8A 00677 BICBO #8. GCA+76 + 0804 
0085 C6 04 8A 0067A BICB2 #4. GCA+209 + 0805 
28 Ab OF 8A 0067F BICB2 #15, GCA+116 + 0809 
FB AG OF 88 00683 BISB 15; GCA+68 + 0813 
30 Ab 07 8A 00687 BICB 7, GCA+124 > 0816 
3c AG 96 BF 9A 0068B MOVZBL #150, GCA+136 : 0817 
40 «B6 46 8F 9A 00690 MOVZBL #70, @GCA+140 + 0818 
48 Ab 08 DO 00695 MOVL #8, GCA+148 + 0820 
4C AG 04 DO 00699 MOVL #4. GCA+152 : 082¢ 
50 AG or BA 00690 BICB2 #1. GCA+156 : 082 
SCAG 1 DO 006A1 MOVL 1; GCA+168 + 0824 
60 Ab 01 DO 0065 MOVL 1; GCA+172 : 0825 
64 Ab 01 DO 006A9 MOVL 1, GCA+176 : 86 
08 B6 03 DO 006AD MOVL #3. @GCA+84 + 0831 
6C AG OA 7D 00681 MOVO #10, GCA+184 + 0834 
0c a6 7C 006B5 CLRQ  GCA+88 + 0836 
1C Ab D4 006B8 CLRL GCA+104 + 0839 
14 A6 7C 006BB CLRQ  GCA+96 : 0838 
0094 C6 7C O06BE CLRQ GCA+224 > 085 
0099 C6 3FOOOOFF 8F CA 906¢2 BICL2 #1056964863, GCA+229 + 0849 
FO Ab D4 006CB CLRL A+60 : 0851 
38 = «B6 46 8F 9A OO6cE MOVZBL #70, aGCA+132 > 0852 
34 B6 D4 006D CLRL CA+128 + 0854 
66 14 BA 00606 BICB2 #20, GCA+76 : 0856 
20 Ae 7C 00609 CLRQ A+108 : 0857 
0084 6 o1 BA 006DC C #1, GCA+208 : 0859 
69 42 F 9A 006E1 MOVZBL #66, PHANSS + 0869 
1c AG 4 af 9A 006E5 MOVZBL #66, PHAN+36 : 087¢ 
FC BS A DO O06EA MOVL #58. @PHAN+4 > 087 
FB OAD 01 pO OOGE MOVL #1, PHAN : 0878 
04 Ad 7C O06F CLRQ = PHAN#+12 : 0879 
10 Ad 01 DO O06F MOVL #1, PHAN+24 : 088 
146 B9 D4 006F CLRL a@PHAN+28 : : 
18 AD D4 Bpere CLRL PHAN+3 ; 088 
20 +89 01 dO OGFF MOVL #1, @PHAN+40 : 0884 
oc a9 D4 0703 CLRL —— PHAN#20 : 0886 
24 «Ad 01 7D 00706 MOVO #1, PHAN+44 : 0885 
cc h6A9 7C 2OA CLRQ  — PHAN+5 : 0888 
4 a9 7C 007 CLRQ  PHAN+6 > 089 
C Ad D4 0071 CLRL  PHAN#+68 : 089 
50 D4 0071 CLRL : 090 
QOOO0000GEF4O D4 00715 11%:  CLRL PAGENTI) : 0902 
> sooo00006 er + 8 bors aoecee Si? keene ? 99 
° be : 
iddittdit EF 1 BO 130 MOVW #1. PAGEN+14 : 8309 


. ad RUNOFF initialization bse ~300" 138% O41: 35: 7 VAX-11 8 Prey 0-742 Page Bs 


1 liss 
v04 RINIT == body of main routine 14-Sep-1984 DISKSVMSMASTER: CRUNOFF .SRCJRINIT.BLI;1 ) 
F F F 8A 007 B2 #240 ok g N 7 091 
000000006 EF 4 segnenen Be . 4 Bf 14s Bicke Hi 6a AGENC TS ; 318 
000000006 EF FO «BF «BA 007 F BICB2 +12 + 0914 
000000006 EF 4 69 FO 74 INSV lag Mt OAGEN+13 + 0915 
000000006 EF 04 0 FO 1 INSV #4, PAGEN+12 : 916 
000000006EF 40 00000000GEF4 D9 i p 12$ WOVE hee NPAGENLI] ; 359 
00006 EF D0 18 MOVL * NPAGENSS + 0931 
gooeannne Et BB | Bye: ities, : 0931 
000000006 $y 00080006 EF op MOVAB BFE ; 0936 
7 MOV ,B(RO) + 0937 
8 Ni te p 90796 movE At (RO) + 0939 
60 05 DO 00794 MOVL * (RO) + 0941 
04 00797 ET + 0969 


; Routine Size: 1944 bytes, Routine Base: S$CODE$ + 0000 


; 843 0970 1 
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i ROUTINE VALUE: 


RETURN; 

INCR I FROM .FIRST TO .LAST DO 
BEGIN 
BIND SB = ECC C.1, 0,0,0,0] : SECC_BLOCK; 
Zero all Ene Option bits. the effect is: 
' for CHAPTER/ APPEND IX: this means, 


i FORMAL PARAMETERS: 


H 1 
RUNOFF initialization 16-Sep- 9 VAX-11 Bliss-32 V4.0-742 P 5 
ECCINI == Initialize ECC structure to default v \eckep-1o86 $h:09:8) — SIEKSVMRASTERSCRUNOFE “SACIRINIT.LIn;@” (St 
0971 ZSBITL ‘ECCINI <= initialize ECC structure to default values’ 
$358 GLOBAL ROUTINE eccini (first, last, counters) : NOVALUE = 
0974 144 
0975 ! 
bare FUNCTIONAL DESCRIPTION: 
+44 } ECCINI Initializes one or more parts of the ECC structure. 
0980 { 
0981 { 
94-04 FIRST is the offset of the first SECC_BLOCK to initialize 
bons LAST is the offset of the last SECC_BLOCK to initialize 
443 COUNTERS tells whether or not to zero the entity counters. 
0988 ! For example, to_initialize all the .STYLE { example : 
44:94 figure | table } data including counters: 
44 ECCINI (EXAMP_OFFSET, TABLE_OFFSET, TRUE) 
099 i To initialize all the .STYLE HEADER data but leave counters 
$38 re 
0996 ECCINI (HL1_OFFSET, HL6_OFFSET, FALSE) 
0998 1 | IMPLICIT INPUTS: None 
0999 ! 
4 IMPLICIT OUTPUTS: 
100 | Parts of the ECC are initialized. 
1 
COMPLETION CODES: None 
! SIDE EFFECTS: None 
BEGIN 
OWN 
FS_ALLOCATE (POST_STRING, 5); ! For default ":'* post string. 
FS_INIT (POST_STRING); 
FS"WCHAR (POST_ STRING, %C':"); ! Insert a ‘':'' after the counter.. 
teil FIRST LSS 0 OR .LAST GTR MAX_ECC_OFFSET 


' Numbered headers; no bold; no underline: no break before caption; 


me Ini sil fzegion 1b-sep-19 r 91:36:39 VAX-11 Bliss-32 V4.0-742 Page (3 | 


RUN 6) 
ECCINI == initialize ECC structure to default v 14-Sep-19 DISKSVMSMASTER: CRUNOFF .SRCIRINIT.BLI; | 
3 1028 ' no insertion of page number into the TOC, don't start a new page, 
; 13 4 and don't necesarily start on an odd-numbered page. 
; 19 1 SB CECCSV_OPTIONS) = 0; | 
3 19 4 LF (.1 GEQ HL3_OFFSET) AND (.1 LSS CHAP_OFFSET) ! Run=in HL3 ==> HL6. | 
: 909 1035 SB CECCSH_RUNIN] = TRUE; 
; 910 1036 
s 911 103 SB CECCSH_CASE) = ! Case rules for header: 
H aig 1338 4 (TF _.] LEQ TABLE_OFFSET 
3; 91 1039 4 
: ale Wee : ECCSK_LEAVECASE ! No case change for <entities>, 
: 916 1048 4 IF .1 EQL HL1_OFFSET 
3 917 1045 4 THEN 
: a8 ee : ECCSK_ALLCAP ! ALL cap for HL1, 
; 320 1046 : ECCSK_FIRSTCAP); ! Initial cap for HL2 ==> HL6. 
: 386 Ho 4 3 SB CECCSH_POSITION] = ECCSK_LEFT; ! Position header flush-left. 
; ase O28 SB CECCSH_AFTER) = 1; ! Skip 1 Line after header. 
: 926 1926 SB CECCSH_BEFORE] = ! Skip Lines before header: 
; 927 1053 4 (IF .1 LEQ TABLE_OFFSET 
: 928 1054 4 THEN 1 ' 1 for <entities>, 
: 368 192? ELSE 3); ' 3 for HL's. 
; 33) IO2e SB CECCSH_SPACES) = 2; ! 2 spaces between counter and caption. | 
5 933 1059 IF .1 EQL HCOLL_OFFSET | 
> 934 1060 
: HH Hee nee CECCSH_TESTPAGE) = ! Testpage for HL's. 
: 937 1968 3 SB CECCSH_TESTPAGE] = 6; ' Start new page if not nm Lines remaining: 
; 3e6 +41 3 ' 6 = 4 + <before> + <after> for entities, 
: 940 1066 § if .1 GEQ CHAP_OFFSET 
; ier i Bein ! CHAPTER/APPENDIX rules 
; 1009 4 SB CECCSV_PAGE) = TRUE; ' Start a new page before CHAP/APP. 
3 1070 4 $B pereuape TuCGNa eis ' Skip one Line between counter and caption (CHAPTER). 
: 1071 4 SE LECCSV_BREAK] =_TRUE; ' Put a break between counter & caption. 
: 1 § 4 SB CECCSH_POSITION) = ECCSK_CENTER: ' Position CHAPTERS CENTER. 
3 1 4 SB CECCSH_BEFOREJ = 12; ! Skip A*ors before the word chapter: 
; 1074 4 SB CECCSH_AFTERJ =_3; ' 3 Lines after the word chapter. | 
3 1075 4 SB Bereyesionloees = FALSE; Don't care what page to start on. 
3 1 § 4 SB LECC$V_TOCPAGE) = FALSE: ! Don't put the page number in TOC. 
3 1 & SB LECCSH_TESTPAGE] = 17; ' Start new page if not n Lines remaining: 
: 8 4 i, ECCSH-CASE) = ECCSK_ALLCAP; i Allcap for chapters. | 
: 1080 : | 
1081 5 | 
: 1 i Zero the counters initially (when called from RINIT); do not zero them 
3 1 ! during processing (when called from STYLE). 


00000000 00000005 00000000 00000000 


007¢ 
56 00000000" EF 9E 


RUNOFF initializ zasion tbe Sep-1984 t 91: 35: 33 VAX=-11 Bliss-32 V4.0-742 
ECCINI == initialize ECC structure to default v 14-Sep-1984 DISKSVMSMASTER: CRUNOFF. SRCIRINIT.BLI;1 
1085 t— 

18 8 IF .COUNTERS 

1 THEN 

1088 4 eecis 

19s ? SB CECCSH_COUNTER] = 0; ! Counters ==> 0. 

1933 : IF_.1 NEQ APPEND_OFFSET 

1998 4 SB CECCSH_DISPLAY_DESC] = ! Display characteristics for counters and chapters 
2 ; TCONVRT_DEC_NOZ ! ==> decimal. 

1990 4 SB CECCSH_DISPLAY_DESC) = ! Display characteristics for counters 
344 ; TCONVRT_LET_UPP; ! ==> Uppercase letters. 

1099 4 SB CECCS$H_PRE_LEN) = 0; ! No text-strings before the counter. 
Vibe ? SB CECC$A_PRE_PTR] = 0; 

1106 5 i (.1 GEQ EXAMP_OFFSET) AND (.1 LEQ TABLE OFFSET) 

1103 4 THEN ! Give the entities a default after string 
1104 5 BEGIN 

1105 5 $B f CC$H_POST_LEN] = .FS_LENGTH (POST_STRING); 

1106 5 SB _CECCSA_POST_PTR] = .FS_START (POST_STRING); 

1107 4 END; 

1108 4 

1198 3 END; 

1111 j IF _ .J EQL HCOLL_OFFSET ! Collecting-location for .STHL information. 

RL 3 THEN 

111 4 BEGIN 

1114 4 SB CECCSV_OPTIONS) = 0; ! Zero the Option bits. 

1115 4 SB CLECCSH_RUNIN] = -1; 

1116 4 SB CECCSH_CASE] = -1; 

1117 4 SB LECCSH_POSITION] = -1; ! Initialize numerics to -1 so we can 

1118 4 SB CECCSH_AFTER] = -1; ' tell if t thes have been specified. 

1119 4 SB ECC$H“BEF ORE] = -|; 

1120 4 SB CECCS$H-SPACES] = -1: 

1121 4 SB CECCSH_TESTPAGE) = -1; 

1122 3 END; 

1123 3 

1124 § END; 

1125 

1126 1 END; ! End of ECCINI 


-PSECT SOWNS,NOEXE,2 


00028 POST_STRING: 
. LONG 
00038 “BLKB 


Q. 0, 5. 0 
-PSECT SCODES,NOWRT,2 


990 .ENTRY ECCINI, Save R2, RS, R4,R5,R6 
00 MOVAB POST_STRING+12, 
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1 
RINIT RUNOFF initialization ibese -1984 2:32:39 VAX-11 Bliss-32 V4.0-742 Page 
v04-000 ECCINI == Initialize ECC structure to default v 12-8 08- 1 3be 04:35:38 DISKSVMSMASTER:CRUNOFF. SRCJRINIT.BUI: 1° 
6 29 87 MOVB = #2,,_:«(R3) : 
63 10 is ' 0 BA INSV = #12, aH #16, (R3) : 
01 A ; B MOVW «= #3, 1 (R35 : 
6) 50 BF BA 000C BicB2 6, (R1) : 
01 Ae 11 : ¢ MOVW #17, 1(R2) : 
is 02 CB MOVB #2, 3(R1) : 
33 Oc ac E CF 12$ BLBC COUNT RS, 138 : 
62 20 j 9 FO D3 INSV , #24, #32, (R2) : 
08 D1 D CMPL #1 : 
13 0B BEQL : 
10 «AI 10 18 FO 0000 INSV #0, #24, #16, 16(R1) : 
: 11 6 E BRB : 
10 Al 10 18 FO OO0E5 13$: INSV #2, #24, #16, 16(R1) : 
15 Al B4 OOOEB 14$: CLRW = 21¢R1) : 
14 «Al 20 18 00 FO OOEE INSV #0, #24, #32, 20(R1) : 
D OOF, TSTL : 
10 19 OF6 BLSS 5$ : 
0D 55 €9 O00F BLBC 3=—-«a'5,,_:158 : 
18 Al 10 18 66 FO 000FB INSV  POST_STRING+12, #24, #16, 24(R1) : 
1c AI 20 08 F4 Ab FO 00101 INSV  POST"STRING, #8, #32, 28(R1) : 
25 54 €9 00108 15$ BLBC = RG 16s ; 
61 FFFFOOOO 8F DO 001 MOVL  #-655 $ (R1) : 
63 01 BE 0011 MNEGB «#1, (R35 : 
01. A 1 ee 011 MNEGW #1, 1(R3) : 
63 10 1B FFFFFFFF F FO 00119 INSV +4, #24, #16, (R3) : 
08 Al 10 18 FFFFFFFF 8F FO 00122 INSV  #=1. #26, #16, &(R1) : 
01 A2 01 AE 0012C MNEGW #1, 1(R25 : 
FEFC 50 01 08 AC F1 00130 16$: ACBL LAST, #1, I, 3$ ; 
04 00137 RET : 
; Routine Size: 312 bytes, Routine Base: S$CODE$ + 0798 
; 1001 1127 1 
; 100 1128 1 END ! End of module 
+ 100 1129 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: $PLITS 48 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC,ALIGN(2) 
> SOWNS 61 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(0) 
: $CODES 2256 NOVEC.NOWRT. RD. EXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) 


Library Statistics 


woeeewees Symbols -------- 


Pages Processing 
Mapped Time 


st a ns se ts ss ss ss 
Se a 


Ne 3 Oe 
Oo —- OV0On fou 


ey Se 2256 coge + 109 data bytes 


; slesced Time: 2:16. 
; Lines/CPU Min: 9 

3 ‘mem Al ae 29864 
: penere Used: 494 pages 
; Compilation Complete 


M A. 
RINIT UNOFF initialization Sep 9 VAX-11 Bliss-32 v4. 
v04-000 CCINI == in tiatize ECC structure to default v 18:8 Sep 7138 9}: 38; 3} DISKSVMSMASTER: CRU 
: SDUAZB:ESYSLIBIXPORT .132;1 9 17 252 00. 
ae Sti ae shef6.L32;1 1328 398 24 a6 80:00:3 
H COMMAND QUALIF JEKS 
H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LISS$:RINIT,,OBJ=OBJ$:RINIT MSRC$:RINIT/UPDATE=(ENHS$:RINIT) 
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